diff options
Diffstat (limited to 'src/interp/i-funsel.boot')
| -rw-r--r-- | src/interp/i-funsel.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/i-funsel.boot b/src/interp/i-funsel.boot index 345b67f9..68cafbdb 100644 --- a/src/interp/i-funsel.boot +++ b/src/interp/i-funsel.boot @@ -1639,8 +1639,8 @@ unifyStruct(s1,s2,SL) == s1=s2 => SL if s1 is [":",x,.] then s1:= x if s2 is [":",x,.] then s2:= x - if not atom s1 and first s1 = '_# then s1:= LENGTH second s1 - if not atom s2 and first s2 = '_# then s2:= LENGTH second s2 + if not atom s1 and first s1 = '_# then s1:= # second s1 + if not atom s2 and first s2 = '_# then s2:= # second s2 s1=s2 => SL isPatternVar s1 => unifyStructVar(s1,s2,SL) isPatternVar s2 => unifyStructVar(s2,s1,SL) |