From a69c9fb665459e2bfdbda1bf80741a0af31a7faf Mon Sep 17 00:00:00 2001
From: Bryan Newbold <bnewbold@robocracy.org>
Date: Mon, 20 Feb 2017 00:06:40 -0800
Subject: New upstream version 3b5

---
 scanf.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 scanf.scm

(limited to 'scanf.scm')

diff --git a/scanf.scm b/scanf.scm
old mode 100644
new mode 100755
index a79595f..7604fb4
--- 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)
-- 
cgit v1.2.3