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