Student and suspend markers parsing.

member-parser.scm

@@ -52,10 +52,22 @@
 	   ((studentstart studentstop suspendstart suspendstop)
 	    (let ((marker (if (member key '(studentstart suspendstart))
 			      'start
-			      'stop)))
-	      mr))
+			      'stop))
+		  (kind (if (member key '(studentstart studentstop))
+			    'student
+			    'suspend)))
+	      (let loop ((values value)
+			 (mr mr))
+		(if (null? values)
+		    mr
+		    (let ((value (car values)))
+		      (loop (cdr values)
+			    (member-record-sub-prepend mr
+						       output
+						       kind
+						       (list marker (car value) (cdr value)))))))))
 	   (else
-	    mr))))
+	    (member-record-sub-set mr output key value)))))
      (info
       ,(lambda (mr output key value)
 	 mr))))

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