Small fixes
parent
ad0ae8dc63
commit
df5f7cc4df
|
@ -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?
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue