Import Debian changes 2c7-1debian/2c7-1

slib (2c7-1) unstable; urgency=low

  * New upstream.
  * Add slibconfig back in.

slib (2c6-2) unstable; urgency=low

  * Remove the slib$(VERSION).info file.  Cut the diff back down to
    size. 

slib (2c6-1) unstable; urgency=low

  * New upstream.
  * Move docs to /usr/share. Up standards version. add /usr/doc symlink.
    Move info files.  Remove undocumented link.

slib (2c5-6) unstable; urgency=low

  * Lowercase two vars in yasyn.scm (Fixes bug #37222)

slib (2c5-5) unstable; urgency=low

  * Fix it so string-index isn't defined (now there is a
    strsrch:string-index) (Fixes #38812)

slib (2c5-4) unstable; urgency=low

  * Don't run slibconfig in postinst.  (Fixes bug #38253, #37733, #37715,
    #37746,  #37809, #37917, #38123, #38462)

slib (2c5-3) unstable; urgency=low

  * Run slibconfig in postinst.  It was commented out there, but I don't
    see any old bug reports on why it was commented out, so let's try
    again. :)  (Fixes bug #37221)

slib (2c5-2) unstable; urgency=low

  * Link mklibcat.scm to mklibcat.  Fixes a problem with using slib with
    guile. 

slib (2c5-1) unstable; urgency=low

  * New upstream.

slib (2c3-4) unstable; urgency=low

  * New maintainer.

1 files changed, 55 insertions, 0 deletions

diff --git a/recobj.scm b/recobj.scm
new file mode 100644
index 0000000..36ab6d2
--- /dev/null
+++ b/recobj.scm
@@ -0,0 +1,55 @@
+;;; "recobj.scm" Records implemented as objects.
+;;;From: whumeniu@datap.ca (Wade Humeniuk)
+
+(require 'object)
+(require 'common-list-functions)
+
+(define record-type-name (make-generic-method))
+(define record-accessor (make-generic-method))
+(define record-modifier (make-generic-method))
+(define record? (make-generic-predicate))
+(define record-constructor (make-generic-method))
+
+(define (make-record-type type-name field-names)
+  (define self (make-object))
+
+  (make-method! self record-type-name
+		(lambda (self)
+		  type-name))
+  (make-method! self record-accessor
+		(lambda (self field-name)
+		  (let ((index (comlist:position field-name field-names)))
+		    (if (not index)
+			(slib:error "record-accessor: invalid field-name argument."
+				    field-name))
+		    (lambda (obj)
+		      (record-accessor obj index)))))
+
+  (make-method! self record-modifier
+		(lambda (self field-name)
+		  (let ((index (comlist:position field-name field-names)))
+		    (if (not index)
+			(slib:error "record-accessor: invalid field-name argument."
+				    field-name))
+		    (lambda (obj newval)
+		      (record-modifier obj index newval)))))
+
+  (make-method! self record? (lambda (self) #t))
+
+  (make-method! self record-constructor
+		(lambda (class . field-values)
+		  (let ((values (apply vector field-values)))
+		    (define self (make-object))
+		    (make-method! self record-accessor
+				  (lambda (self index)
+				    (vector-ref values index)))
+		    (make-method! self record-modifier
+				  (lambda (self index newval)
+				    (vector-set! values index newval)))
+		    (make-method! self record-type-name
+				  (lambda (self) (record-type-name class)))
+		    self)))
+  self)
+
+(provide 'record-object)
+(provide 'record)
\ No newline at end of file