diff options
author | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
---|---|---|
committer | Bryan Newbold <bnewbold@robocracy.org> | 2017-02-20 00:06:40 -0800 |
commit | a69c9fb665459e2bfdbda1bf80741a0af31a7faf (patch) | |
tree | f0bc974f8805049e6b9a4e6864886298fbaa05a4 /scanf.scm | |
parent | 4684239efa63dc1b2c1cbe37ef7d3062029f5532 (diff) | |
download | slib-upstream/3b5.tar.gz slib-upstream/3b5.zip |
New upstream version 3b5upstream/3b5upstream
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) |