diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -44,11 +44,11 @@ hex : ret, c3 c, ; decimal : begin <mark ; immediate : again branch <resolve ; immediate -: until 0branch <resolve ; immediate -: if 0branch >mark ; immediate ( I: -- a ) +: until ?branch <resolve ; immediate +: if ?branch >mark ; immediate ( I: -- a ) : else branch >mark swap >resolve ; immediate : then >resolve ; immediate -: while 0branch >mark ; immediate +: while ?branch >mark ; immediate : repeat branch swap <resolve >resolve ; immediate : ?dup dup 0<> if dup then ; |
