From d0df8e8cd2656d3d17d35f6b67f7db00a8f9fd19 Mon Sep 17 00:00:00 2001 From: Martin Gasbichler Date: Mon, 14 Apr 2003 06:45:20 +0000 Subject: [PATCH] Added reference to the origin of the code --- s48/binary-parse/README | 7 +++++++ s48/binary-parse/binary-parse.scm | 9 ++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/s48/binary-parse/README b/s48/binary-parse/README index 61edb37..b00b886 100644 --- a/s48/binary-parse/README +++ b/s48/binary-parse/README @@ -1,3 +1,10 @@ +[This file and the accompanying source code were derived from + Oleg's code for Gambit available from + + http://okmij.org/ftp/Scheme/index.html#binio + +] + (make-bit-reader byte-reader) -> bit-reader Given a BYTE-READER (a thunk), construct and return a function diff --git a/s48/binary-parse/binary-parse.scm b/s48/binary-parse/binary-parse.scm index 740ed5c..b2a78a1 100644 --- a/s48/binary-parse/binary-parse.scm +++ b/s48/binary-parse/binary-parse.scm @@ -1,3 +1,10 @@ +;;; This file and the accompanying README were derived from +;;; Oleg's code for Gambit available from +;;; +;;; http://okmij.org/ftp/Scheme/index.html#binio +;;; + + ; Binary parsing ;---------------------------------------- @@ -73,7 +80,7 @@ ; "interpreter". The abbreviated notation may turn out to look like ; Olin's regular expressions. -; $Id: binary-parse.scm,v 1.1 2003/04/14 06:38:47 mainzelM Exp $ +; $Id: binary-parse.scm,v 1.2 2003/04/14 06:45:20 mainzelM Exp $ ;----------------------------------------