Ticket #1330: spock-dead-assign-undefined.diff

File spock-dead-assign-undefined.diff, 583 bytes (added by felix winkelmann, 6 years ago)
  • codegen.scm

     
    129129           (indent
    130130            (lambda ()
    131131              (let ((y (walk y dest loc)))
    132                 (emit nl t " = " y ";"))))
     132                (unless (eq? y 'undefined) (emit nl t " = " y ";")))))
    133133           (emit nl "}" nl "else {")
    134134           (indent
    135135            (lambda ()
    136136              (let ((z (walk z dest loc)))
    137                 (emit nl t " = " z ";"))))
     137                (unless (eq? z 'undefined) (emit nl t " = " z ";")))))
    138138           (emit nl "}")
    139139           t))
    140140        (('%host-ref name) name)