diff options
Diffstat (limited to 'src/interp/buildom.boot')
-rw-r--r-- | src/interp/buildom.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/buildom.boot b/src/interp/buildom.boot index 1905714d..6af76e6a 100644 --- a/src/interp/buildom.boot +++ b/src/interp/buildom.boot @@ -124,8 +124,8 @@ compareSigEqual(s,t,dollar,domain) == t is '$ => dollar isSharpVar t => vector? domain => - instantiationArgs(domain).(POSN1(t,$FormalMapVariableList)) - domain.args.(POSN1(t,$FormalMapVariableList)) + instantiationArgs(domain).(symbolPosition(t,$FormalMapVariableList)) + domain.args.(symbolPosition(t,$FormalMapVariableList)) string? t and ident? s => (s := symbolName s; t) nil s is '$ => compareSigEqual(dollar,u,dollar,domain) |