Fixed a couple prelude bugs

2023-01-02 14:27:00 -06:00
parent 2dea244673
commit 4de3bd5c0c
3 changed files with 12 additions and 3 deletions
@@ -2,11 +2,11 @@
 : then resolve ; immediate
 : else r> $ jmpr >asm >r resolve ; immediate
 : variable create 0 , does> ;
-: arshift $ arshift asm ;
+: arshift [ $ arshift asm ] ;
 : lshift [ $ lshift asm ] ;
 : rshift [ $ rshift asm ] ;
-: u> [ $ gt ] asm ;
-: u< [ $ lt ] asm ;
+: u> [ $ gt asm ] ;
+: u< [ $ lt asm ] ;
 : rdrop r> pop ;
 : over 1 pick ;
 : nip swap pop ;
@@ -23,3 +23,5 @@
 : ror dup 1 rshift swap 23 lshift | ;
 : rol dup 23 rshift swap 1 lshift | ;
 : abs dup 0 < if negate then ;
+: begin here >r ; immediate
+: until r> here - $ brz #asm ; immediate