Bug: Incorrect CTO error

tomhrr / dale

Lisp-flavoured C

BSD 3-Clause "New" or "Revised" License

1.02k stars 48 forks source link

Bug: Incorrect CTO error #147

Closed porky11 closed 7 years ago

porky11 commented 7 years ago

(def when (macro extern (con rest)  ;this works
  (def list (var auto \ (get-varargs-list mc (- (arg-count mc) 1) rest)))
  (qq if (uq con) (do (uql list)) false)))

(def unless (macro extern (con rest)  ;this doesn't
  (qq if (uq con) false (do (uql (get-varargs-list mc (- (arg-count mc) 1) rest))))))

tomhrr commented 7 years ago

Thanks, this has been fixed. (#140 hasn't yet, though, so the second uql above won't work as expected.)