Smart quotes

db4
Slava Pestov 2009-01-26 23:22:50 -06:00
parent 56260087ae
commit e32d11a4d0
2 changed files with 2 additions and 2 deletions

View File

@ -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

View File

@ -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 ;