Small fixes

release
slava 2006-07-26 04:38:19 +00:00
parent ad0ae8dc63
commit df5f7cc4df
3 changed files with 3 additions and 3 deletions

View File

@ -137,7 +137,7 @@ G: (add-history) ( history vector -- )
1 standard-combination ;
M: history (add-history) ( history vector -- )
swap model-value dup [ 2drop ] [ swap push ] if ;
swap model-value dup [ swap push ] [ 2drop ] if ;
: go-back/forward ( history to from -- )
dup empty?

View File

@ -162,7 +162,7 @@ SYMBOL: bootstrapping?
: bootstrap-word ( word -- word )
bootstrapping? get [
dup word-name swap word-vocabulary
dup word-name swap word-vocabulary
dup "syntax" = [
drop "!syntax" >r "!" swap append r>
] when lookup

View File

@ -1,3 +1,3 @@
include vm/Config.unix
PLAF_OBJS += vm/os-macosx.o vm/mach_signal.o
LIBS= -lm -framework Cocoa -framework OpenGL -L/usr/X11R6/lib/ -lfreetype
LIBS= -lm -framework Cocoa -framework OpenGL -L./Factor.app/Contents/Frameworks/ -lfreetype