Type-checked get-rel

This commit is contained in:
Devine Lu Linvega 2023-05-15 13:22:04 -07:00
parent 967ec3434e
commit 0c400dbcfc
1 changed files with 2 additions and 2 deletions

View File

@ -331,8 +331,8 @@ JMP2r
DUP2 #0080 ADD2 POP ?&fail
NIP2 NIP
JMP2r
&fail ( -- )
POP2 ;err/distance set-error ( >> )
&fail ( label* distance* ~- distance )
POP2 ;err/distance set-error
&fill ( -- )
POP2 #ff
JMP2r