aboutsummaryrefslogtreecommitdiff
path: root/src/interp/br-saturn.boot
diff options
context:
space:
mode:
Diffstat (limited to 'src/interp/br-saturn.boot')
-rw-r--r--src/interp/br-saturn.boot2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/interp/br-saturn.boot b/src/interp/br-saturn.boot
index d7bba66f..238855a0 100644
--- a/src/interp/br-saturn.boot
+++ b/src/interp/br-saturn.boot
@@ -1620,7 +1620,7 @@ bcConform1 form == main where
string? form => strconc('"_"",form,'"_"")
STRINGIMAGE form
stringChar(s,0) = char "#" =>
- (n := POSN1(form, $FormalFunctionParameterList)) =>
+ (n := symbolPosition(form,$FormalFunctionParameterList)) =>
htSay form2HtString ($FormalMapVariableList . n)
htSay '"\"
htSay form