Smart quotes
parent
56260087ae
commit
e32d11a4d0
|
|
@ -9,7 +9,7 @@ M: unix-error error.
|
||||||
dup message>> write " (" write errno>> pprint ")" print ;
|
dup message>> write " (" write errno>> pprint ")" print ;
|
||||||
|
|
||||||
M: unix-system-call-error error.
|
M: unix-system-call-error error.
|
||||||
"Unix system call ``" write dup word>> pprint "'' failed:" print
|
"Unix system call “" write dup word>> pprint "” failed:" print
|
||||||
nl
|
nl
|
||||||
dup message>> write " (" write dup errno>> pprint ")" print
|
dup message>> write " (" write dup errno>> pprint ")" print
|
||||||
nl
|
nl
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ SYMBOL: auto-use?
|
||||||
dup vocabulary>>
|
dup vocabulary>>
|
||||||
[ (use+) ]
|
[ (use+) ]
|
||||||
[ amended-use get dup [ push ] [ 2drop ] if ]
|
[ amended-use get dup [ push ] [ 2drop ] if ]
|
||||||
[ "Added ``" "'' vocabulary to search path" surround note. ]
|
[ "Added “" "” vocabulary to search path" surround note. ]
|
||||||
tri
|
tri
|
||||||
] [ create-in ] if ;
|
] [ create-in ] if ;
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue