Start work on new member record handling.

dictionary.scm

@@ -44,9 +44,12 @@
 	 (chicken base)
 	 testing)
 
- ;; Returns an empty dictionary represented as empty list.
- (define (make-dict)
-   '())
+ ;; Returns an empty dictionary represented as empty list or a list of
+ ;; pre-initialized cons pairs.
+ (define (make-dict . pairs)
+   (if (null? pairs)
+       '()
+       (car pairs)))
 
  ;; Checks whether given dictionary d contains the key k.
  (define (dict-has-key? d k)