basis: whitespace.
parent
d5ebb43905
commit
bcc78ab220
|
@ -288,7 +288,7 @@ cell 8 = [
|
|||
cell 8 = [
|
||||
[ t ] [ 1 58 fixnum-shift dup [ fixnum+ ] compile-call 1 59 fixnum-shift = ] unit-test
|
||||
[ -576460752303423489 ] [ 1 59 shift neg >fixnum [ -1 fixnum+ ] compile-call ] unit-test
|
||||
|
||||
|
||||
[ t ] [ 1 40 shift 1 40 shift [ fixnum* ] compile-call 1 80 shift = ] unit-test
|
||||
[ t ] [ 1 40 shift neg 1 40 shift [ fixnum* ] compile-call 1 80 shift neg = ] unit-test
|
||||
[ t ] [ 1 40 shift neg 1 40 shift neg [ fixnum* ] compile-call 1 80 shift = ] unit-test
|
||||
|
|
|
@ -5,7 +5,7 @@ DEFER: word-1
|
|||
|
||||
: word-2 ( a -- b ) word-1 ;
|
||||
|
||||
[ \ word-1 [ ] ( a -- b ) define-declared ] with-compilation-unit
|
||||
[ \ word-1 [ ] ( a -- b ) define-declared ] with-compilation-unit
|
||||
|
||||
[ "a" ] [ "a" word-2 ] unit-test
|
||||
|
||||
|
|
|
@ -76,4 +76,4 @@ SYMBOL: xml-file
|
|||
|
||||
! <pull-xml> tests
|
||||
! this tests just checks that pull-event doesn't raise an exception
|
||||
[ ] [ "vocab:xml/tests/test.xml" binary [ <pull-xml> pull-event drop ] with-file-reader ] unit-test
|
||||
[ ] [ "vocab:xml/tests/test.xml" binary [ <pull-xml> pull-event drop ] with-file-reader ] unit-test
|
||||
|
|
Loading…
Reference in New Issue