[created (core records *)
atsmyles@earthlink.net**20090318142407
 
 created (core records procedural)
 created (core records inspection)
 
 These are are the superset of srfi-99 implemented in gambit. I've moved them to the core so that (gambit records) can be "pure". the gambit libraries should only have api that is provided directly from the underlying system. This also follows the model in the documentation of having the core set of libraries.
 
] adddir ./libs/core
move ./libs/core.scm ./libs/core/core.scm
move ./libs/r5rs.scm ./libs/core/r5rs.scm
hunk ./compile 24
-(define core-libraries (path-expand* "libs/" "core.scm" "r5rs.scm"))
+(define core-libraries (path-expand* "libs/core" "core.scm" "r5rs.scm" "records.scm"))
addfile ./libs/core/records.scm
hunk ./libs/core/records.scm 1
+;core records picks up the err5rs record procedures and inspection api
+(library (core records procedural)
+	 (export make-rtd rtd? rtd-constructor rtd-predicate rtd-accessor rtd-mutator)
+	 (import (primitives make-rtd rtd? rtd-constructor rtd-predicate rtd-accessor rtd-mutator)))
+
+(library (core records inspection)
+	 (export record? record-rtd rtd-name rtd-parent rtd-field-names rtd-all-field-names rtd-field-mutable?
+		 rtd-uid rtd-sealed? rtd-opaque? rtd-field-flag-printable? rtd-field-flag-mutable? 
+		 rtd-field-flag-equality rtd-field-flag-init rtd-map rtd-for-each)
+	 (import (primitives record? record-rtd rtd-name rtd-parent rtd-field-names rtd-all-field-names rtd-field-mutable?
+		 rtd-uid rtd-sealed? rtd-opaque? rtd-field-flag-printable? rtd-field-flag-mutable? 
+		 rtd-field-flag-equality rtd-field-flag-init rtd-map rtd-for-each)))
+
+  
hunk ./libs/gambit/records.scm 1
-;gambit records is a superset of srfi 99
-(library (gambit records procedural)
-	 (export make-rtd rtd? rtd-constructor rtd-predicate rtd-accessor rtd-mutator)
-	 (import (primitives make-rtd rtd? rtd-constructor rtd-predicate rtd-accessor rtd-mutator)))
-
-(library (gambit records inspection)
-	 (export record? record-rtd rtd-name rtd-parent rtd-field-names rtd-all-field-names rtd-field-mutable?
-		 rtd-uid rtd-sealed? rtd-opaque? rtd-field-flag-printable? rtd-field-flag-mutable? 
-		 rtd-field-flag-equality rtd-field-flag-init rtd-map rtd-for-each)
-	 (import (primitives record? record-rtd rtd-name rtd-parent rtd-field-names rtd-all-field-names rtd-field-mutable?
-		 rtd-uid rtd-sealed? rtd-opaque? rtd-field-flag-printable? rtd-field-flag-mutable? 
-		 rtd-field-flag-equality rtd-field-flag-init rtd-map rtd-for-each)))
-
hunk ./libs/gambit/records.scm 3
-     (import (for (gambit records procedural) expand run)
+     (import (for (core records procedural) expand run)
hunk ./libs/rnrs/records.scm 8
-    (gambit records procedural)
+    (core records procedural)
hunk ./libs/rnrs/records.scm 46
-    (gambit records inspection)
+    (core records inspection)
hunk ./libs/srfi/srfi-99.scm 4
-	 (import (gambit records procedural) ))
+	 (import (core records procedural) ))
hunk ./libs/srfi/srfi-99.scm 12
-	   (gambit records inspection)))
+	   (core records inspection)))