aboutsummaryrefslogtreecommitdiff
path: root/src/interp/format.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/format.boot')
-rw-r--r--src/interp/format.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/format.boot b/src/interp/format.boot
index 3d72f266..cda5f73d 100644
--- a/src/interp/format.boot
+++ b/src/interp/format.boot
@@ -619,7 +619,7 @@ formTuple2String argl ==
isInternalFunctionName(op) ==
(not IDENTP(op)) or (op = "*") or (op = "**") => NIL
- (1 = SIZE(op':= PNAME op)) or (char("*") ^= op'.0) => NIL
+ (1 = SIZE(op':= PNAME op)) or (char("*") ~= op'.0) => NIL
-- if there is a semicolon in the name then it is the name of
-- a compiled spad function
null (e := STRPOS('"_;",op',1,NIL)) => NIL