gforth/quotes.fs - diff

Return to quotes.fs CVS log

Up to [gforth] / gforth

version 1.4, 2002/05/01 05:33:56	version 1.5, 2002/09/14 08:20:19
Line 100 interpret/compile: .\" ( compilation 'cc	Line 100 interpret/compile: .\" ( compilation 'cc
s" x1fg" drop \-escape 31 <> throw drop .s	s" x1fg" drop \-escape 31 <> throw drop .s
s" 00129" drop \-escape 10 <> throw drop .s	s" 00129" drop \-escape 10 <> throw drop .s
s" a" drop \-escape 7 <> throw drop .s	s" a" drop \-escape 7 <> throw drop .s
\"-parse " s" " compare 0<> throw .s	\"-parse " s" " str= 0= throw .s
\"-parse \a\b\c\e\f\n\r\t\v\100\x40xabcde" dump	\"-parse \a\b\c\e\f\n\r\t\v\100\x40xabcde" dump
s\" \a\bcd\e\fghijklm\12opq\rs\tu\v" \-escape-table over compare 0<> throw	s\" \a\bcd\e\fghijklm\12opq\rs\tu\v" \-escape-table over str= 0= throw
s\" \w\0101\x041\"\\" name wAA"\ compare 0<> throw	s\" \w\0101\x041\"\\" name wAA"\ str= 0= throw
s\" s\\\" \\" ' evaluate catch 0= throw	s\" s\\\" \\" ' evaluate catch 0= throw
[endif]	[endif]