gforth/test/other.fs - diff

Return to other.fs CVS log

Up to [gforth] / gforth / test

-version 1.2, 1997/06/06 17:28:17
+version 1.5, 1997/10/24 17:13:31
  Line 52  foo1
 fac 120 <> throw
+ \ TO and locals
+ : locals-test2 ( -- )
+     true dup dup dup { addr1 u1 addr2 u2 -- n }
+     false TO addr1
+     addr1 false <> abort" TO does not work on locals" ;
+ locals-test2
+ \ multiple reveals (recursive)
+ : xxx recursive ;
+ throw \ if the TOS is not 0, throw an error
  \ look for primitives
  ' + look 0= throw ( nt )
- Line 65  s" +" find-name <> throw
+ Line 79  s" +" find-name <> throw
  s" a     " 2 /string -trailing throw drop
+ \ convert (has to skip first char)
+. s" 123  " drop convert drop 23. d<> throw
+ \ search
+ name abc 2dup name xyza search throw d<> throw
+ name b 2dup name abc search throw d<> throw
+ \ only
+ : test-only ( -- )
+     get-order get-current
+set-current
+     only
+     get-current >r
+     set-current set-order
+     r> abort" ONLY sets current" ;
+ test-only
  \ comments across several lines
  ( fjklfjlas;d