basis: whitespace.

db4
Doug Coleman 2015-07-20 17:13:52 -07:00
parent d5ebb43905
commit bcc78ab220
3 changed files with 3 additions and 3 deletions

View File

@ -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

View File

@ -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

View File

@ -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