Fix (/ N)
authorDavid Vázquez <davazp@gmail.com>
Sun, 20 Jan 2013 17:29:32 +0000 (17:29 +0000)
committerDavid Vázquez <davazp@gmail.com>
Sun, 20 Jan 2013 17:29:32 +0000 (17:29 +0000)
ecmalisp.lisp

index 0258d41..d485335 100644 (file)
   (let ((args (cons x others)))
     (variable-arity args
       (if (null others)
-         (concat "/" (car args))
+         (concat "1 /" (car args))
          (join args "/")))))
 
 (define-builtin mod (x y) (num-op-num x "%" y))