Update documentation, remove old bug files, move bugs into bugs/.
[mes.git] / bugs / c4.mes
1 ;; guile: g0
2 ;; mes: crash
3 (define gensym
4   (let ((counter 0))
5     (lambda (. rest)
6       (let ((value (number->string counter)))
7         (set! counter (+ counter 1))
8         (string->symbol (string-append "g" value))))))
9
10 (display (gensym))
11 (newline)