From 683b15834757e0ccb39afe72bb46c4d644ce033e Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Tue, 14 Dec 2010 21:41:05 +0000
Subject: 	* boot/ast.boot (bfQ): Emit STRING= for string comparison. 
 * interp/i-output.boot: Fix type violation in equality comparison.

---
 src/interp/i-output.boot | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-output.boot')

diff --git a/src/interp/i-output.boot b/src/interp/i-output.boot
index cff0e227..bc847e3e 100644
--- a/src/interp/i-output.boot
+++ b/src/interp/i-output.boot
@@ -2424,7 +2424,7 @@ superSubApp(u, x, y, di) ==
 
 stringer x ==
   string? x => x
-  EQ('_|, FETCHCHAR(s:= STRINGIMAGE x, 0)) =>
+  '_| = FETCHCHAR(s:= STRINGIMAGE x, 0) =>
     RPLACSTR(s, 0, 1, "", nil, nil)
   s
 
-- 
cgit v1.2.3