~tim/scheme-vm

00cdee125690429c16b1e5b71b180a6899ac6a58 — Tim Morgan 2 years ago c2d0420 master
Remove old code
1 files changed, 0 insertions(+), 2 deletions(-)

M lib/scheme/base.scm
M lib/scheme/base.scm => lib/scheme/base.scm +0 -2
@@ 647,8 647,6 @@
                          (m cdrs (cons (apply fn cars) l2)))))))
          (reverse (m lists '())))))

    ;(define map map-over-single-list)

    (define (string->number str)
      (letrec* ((digits (map (lambda (c)
                              (- (char->integer c) 48))