Commits

Anonymous committed 3edecf1

Support CHICKEN >4.7.0 version of alist-ref that requires a well formed alist

If the team payload is not null then we assume it is a well formed alist as
that is the expected case.

Signed-off-by: Andy Bennett <andyjpb@knodium.com>

Comments (0)

Files changed (1)

 		     (quota_info/quota  . ,(alist-ref 'quota  v)))
 		     state))
 	  ((team)
-	   (append `((team/name . ,(alist-ref 'name v eqv? 'null)))
+	   (append `((team/name . ,(if (eqv? 'null v) v (alist-ref 'name v eqv? 'null))))
 		   state))
 	  (else
 	    (cons `(,k . ,v) state)))))