Changeset 182 for trunk/thune/boot.c
- Timestamp:
- 06/11/06 04:56:12 (3 years ago)
- Files:
-
- 1 modified
-
trunk/thune/boot.c (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
trunk/thune/boot.c
r180 r182 30 30 " opcode! 25 'dec make :dec\n" 31 31 " opcode! 26 'verify make :verify\n" 32 " opcode! 27 'forever make :forever\n" 32 33 "] make :urlan-ops\n" 33 34 ; … … 39 40 "int!/decimal! :number!\n" 40 41 "word!/set-word!/get-word!/lit-word! :any-word!\n" 42 "binary!/string!/block!/paren! :series!\n" 41 43 "tail?: :empty?\n" 42 44 "[quit] proc :q\n" … … 50 52 "] proc :load ;(filename -- block)\n" 51 53 "[select do] proc :case\n" 54 "['break throw] proc :break\n" 52 55 "[\n" 53 " dup do iff (drop drop return)\n"54 " over do recurse\n"56 " [dup do iff break over do] forever\n" 57 " drop drop\n" 55 58 "]\n" 56 59 "proc :while ;(block cond -- )\n" 57 60 "[\n" 58 " dup zero? ift (drop drop return)\n" 59 " over do 1 sub recurse\n" 61 " int! verify\n" 62 " [dup zero? ift break over do dec] forever\n" 63 " drop drop\n" 60 64 "]\n" 61 65 "proc :loop ;(block count -- )\n"
