diff options
Diffstat (limited to 'src/interp/compiler.boot')
-rw-r--r-- | src/interp/compiler.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/compiler.boot b/src/interp/compiler.boot index a4067f8d..ae9671d0 100644 --- a/src/interp/compiler.boot +++ b/src/interp/compiler.boot @@ -777,8 +777,8 @@ compCons1(["CONS",x,y],m,e) == yt':= convert(yt,mr) or return nil [x,.,e]:= convert([x,mx,yt'.env],second mr) or return nil yt'.expr is ['%listlit,:.] => [['%listlit,x,:rest yt'.expr],mr,e] - [["CONS",x,yt'.expr],mr,e] - [["CONS",x,y],["Pair",mx,my],e] + [['%makepair,x,yt'.expr],mr,e] + [['%makepair,x,y],["Pair",mx,my],e] convert(T,m) --% SETQ |