Commits

Anonymous committed 1c3775e

Fix incorrect argument count.

  • Participants
  • Parent commits 12bf028

Comments (0)

Files changed (1)

src/scheme-bert.ss

 #!r6rs
 (library (scheme-bert)
          (export encode)
-         (import (rnrs base) 
-                 (rnrs bytevectors) 
-                 (rnrs lists) 
+         (import (rnrs base)
+                 (rnrs bytevectors)
+                 (rnrs lists)
                  (rnrs hashtables)
                  (rnrs mutable-pairs)
                  (rnrs io ports)
                  (rnrs io simple)
                  (rnrs control)
-                 (rename 
-                  (rnrs arithmetic bitwise) 
+                 (rename
+                  (rnrs arithmetic bitwise)
                   (bitwise-and band)
                   (bitwise-ior bor)
                   (bitwise-arithmetic-shift-left bsl)
                         (- expon ERL_FLOAT_BIAS)))))))
          
          (define (insert-decimal-exp place s)
-           (let* ((s0 (if (= (string-length s) 1) "0"
-                          (substring s 1)))
+           (let* ((len (string-length s))
+                  (s0 (if (= len 1) "0"
+                          (substring s 1 len)))
                   (e  (if (< place 1) "e-" "e+"))
                   (t (- 20 (string-length s0)))
                   (s1 (if (not (zero? t))
              (for-each (lambda (x) (display #\space) (write x))
                        whatever)
              (newline)
-             (error "pregexp-error")))
+             (error "pregexp-error" "OH SHI-")))
          
          (define pregexp-read-pattern
            (lambda (s i n)