Anonymous avatar Anonymous committed 1c3775e

Fix incorrect argument count.

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)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.