aboutsummaryrefslogtreecommitdiff
path: root/src/interp/c-doc.boot
diff options
context:
space:
mode:
authorGabriel Dos Reis <gdr@axiomatics.org>2015-12-26 02:10:51 -0800
committerGabriel Dos Reis <gdr@axiomatics.org>2015-12-26 02:10:51 -0800
commit6f164087ba2a3f6794f1c4a18a260350db4a0a55 (patch)
tree97f8b3a8a5f4c4d4de60117ca0aa8319a9026a34 /src/interp/c-doc.boot
parentce399e9928fc1fed29dddecc6fac5484b9f755a5 (diff)
downloadopen-axiom-6f164087ba2a3f6794f1c4a18a260350db4a0a55.tar.gz
Introduce opcode '%constant' in lieu of IDENTITY.
Diffstat (limited to 'src/interp/c-doc.boot')
-rw-r--r--src/interp/c-doc.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/c-doc.boot b/src/interp/c-doc.boot
index ba640875..b6cc0e66 100644
--- a/src/interp/c-doc.boot
+++ b/src/interp/c-doc.boot
@@ -1043,7 +1043,7 @@ checkSayBracket x ==
checkBeginEnd u ==
beginEndStack := nil
while u repeat
- IDENTITY
+ do
x := first u
string? x and x.0 = $charBack and #x > 2 and not tableValue($htMacroTable,x)
and not (x is '"\spadignore") and IFCAR IFCDR u = $charLbrace