diff options
Diffstat (limited to 'scanf.scm')
| -rwxr-xr-x[-rw-r--r--] | scanf.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/scanf.scm b/scanf.scm index a79595f..7604fb4 100644..100755 --- a/scanf.scm +++ b/scanf.scm @@ -1,5 +1,5 @@ ;;;;"scanf.scm" implemenation of formatted input -;Copyright (C) 1996, 1997, 2003 Aubrey Jaffer +;Copyright (C) 1996, 1997, 2003, 2010 Aubrey Jaffer ; ;Permission to copy this software, to modify it, to redistribute it, ;to distribute modified versions, and to use it for any purpose is @@ -23,6 +23,7 @@ ;;; functions starting from the POSIX man pages. (require 'string-port) +(require 'multiarg-apply) (require 'rev2-procedures) (require 'rev4-optional-procedures) @@ -314,6 +315,7 @@ (else (case (car sexp) ((vector-ref) `(lambda (,v) (vector-set! ,@(cdr sexp) ,v) #t)) + ((array-ref) `(lambda (,v) (array-set! ,(cadr sexp) ,v ,@(cddr sexp)) #t)) ((substring) `(lambda (,v) (substring-move-left! ,v 0 (min (string-length ,v) |