fix more bugs

This commit is contained in:
2021-11-27 17:51:42 +01:00
parent 4efe5ffa86
commit 2632f748b1
3 changed files with 6 additions and 5 deletions
+1 -2
View File
@@ -1802,7 +1802,6 @@ TESTING S\" (Forth 2012 compilation mode)
\ interpretation semantics. S\" in interpretation mode is tested in the tests on
\ the File-Access word set
1 debug
T{ : SSQ1 S\" abc" S" abc" S= ; -> }T \ No escapes
T{ SSQ1 -> TRUE }T
T{ : SSQ2 S\" " ; SSQ2 SWAP DROP -> 0 }T \ Empty string
@@ -1835,7 +1834,7 @@ T{ SSQ3 DROP 19 CHARS + C@ -> 92 }T \ \\ \ Back Slash
CR .( The next test should display:)
CR .( One line...)
CR .( another line)
T{ : SSQ4 S\" \nOne line...\nanotherLine\n" TYPE ; SSQ4 -> }T
T{ : SSQ4 S\" \nOne line...\nanother line\n" TYPE ; SSQ4 -> }T
\ Test bare escapable characters appear as themselves
T{ : SSQ5 S\" abeflmnqrtvxz" S" abeflmnqrtvxz" S= ; SSQ5 -> TRUE }T