steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/tests/intrinsics.factor
View File

@ -288,7 +288,7 @@ cell 8 = [
cell 8 = [ cell 8 = [
[ t ] [ 1 58 fixnum-shift dup [ fixnum+ ] compile-call 1 59 fixnum-shift = ] unit-test [ 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 [ -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 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 [ 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 [ t ] [ 1 40 shift neg 1 40 shift neg [ fixnum* ] compile-call 1 80 shift = ] unit-test

2
basis/compiler/tests/redefine15.factor
View File

@ -5,7 +5,7 @@ DEFER: word-1
: word-2 ( a -- b ) 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 [ "a" ] [ "a" word-2 ] unit-test

2
basis/xml/tests/test.factor
View File

@ -76,4 +76,4 @@ SYMBOL: xml-file
! <pull-xml> tests ! <pull-xml> tests
! this tests just checks that pull-event doesn't raise an exception ! 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