Student and suspend markers parsing.

member2-record.scm

@@ -35,6 +35,7 @@
   member-record-add-highlight
   member-record-sub-ref
   member-record-sub-set
+  member-record-sub-prepend
   member-record-tests!
   )
 
@@ -102,6 +103,12 @@
      (dict-set mr sec
 	       (dict-set sec-dict key val))))
 
+ ;; Prepends value to given subkey
+ (define (member-record-sub-prepend mr sec key val)
+   (member-record-sub-set mr sec key
+			  (cons val
+				(member-record-sub-ref mr sec key '()))))
+
  ;; Self-tests
  (define (member-record-tests!)
    (run-tests