rfc3339: Port to Chicken 6

[Daniel Ziltener]

Hi,




zilti


diff -ruN rfc3339.orig/rfc3339.scm rfc3339/rfc3339.scm
--- rfc3339.orig/rfc3339.scm	2024-09-30 01:13:50.935955075 +0200
+++ rfc3339/rfc3339.scm	2024-09-30 01:15:12.210602144 +0200
@@ -156,8 +156,9 @@
                          (c2 hh) ":" (c2 mm) ":" (c2 ss)
                          (cf fs) (tzstr tzoff)))))
 
-(define-record-printer (rfc3339 x out)
-  (fprintf out "#<rfc3339 ~s>" (rfc3339->string x)))
+(set-record-printer!
+ rfc3339 (lambda (x out)
+           (fprintf out "#<rfc3339 ~s>" (rfc3339->string x))))
 
 ;;; convenience functions
 

I attached a patch to port rfc3339 to Chicken 6. It replaces the call to the deprecated `define-record-printer` with `set-record-printer!`.

OpenPGP_0xB38976E82C9DAE42.asc
Description: OpenPGP public key

OpenPGP_signature.asc
Description: OpenPGP digital signature