let-loop macro dead loop when providing zero arguments.

[tiancaiamao]

(@import "cora/lib/let-loop")

(let-loop never-reach ()
	  (if true
	      42
	      (never-reach)))

(never-reach)

Expect 42, but get dead loop.

(macroexpand '(let-loop never-reach ()
	       (if true
		   42
		   (never-reach))))  

((let #f62 (lambda (#meta61)
	     (let never-reach (#meta61 #meta61)
		  42))
      (#f62 #f62)))

(let-loop never-reach (ignore 0)
	       (if true
		   42
		   (never-reach ())))    ;;; get 42

(macroexpand '(let-loop never-reach (ignore 0)
	       (if true
		   42
		   (never-reach ()))))

((let #f66 (lambda (#meta65 ignore)
	     (let never-reach (#meta65 #meta65)
		  42))
      (#f66 #f66)) 0)

[zysaaa]

貌似只能通过这种方式给你留言了，到时候会删除；

之前有在看你的博客（www.zenlife.tk），现在突然发现已经无法访问了，请问是不维护了吗 ~~