Fixup accept extra CR.

2022-06-07 23:56:14 -07:00
parent 298de57027
commit f2948cee9b
3 changed files with 3 additions and 8 deletions
--- a/common/testing.fs
+++ b/common/testing.fs
@ -45,7 +45,6 @@ variable expect-used   variable result-used
 : result-type ( a n -- ) for aft dup c@ result-emit 1+ then next drop ;
 : expected ( -- a n ) expect-buffer expect-used @ ;
 : resulted ( -- a n ) result-buffer result-used @ ;
-: out:cr!   13 expect-emit ;
 : out:cr   13 expect-emit nl expect-emit ;
 : out:\ ( "line" -- ) nl parse expect-type ;
 : out: ( "line" -- ) out:\ out:cr ;