<html><head><style type="text/css"><!-- DIV {margin:0px;} --></style></head><body><div style="font-family:times new roman,new york,times,serif;font-size:12pt"> am working through the paper from 2004 on FrTime. There is a clock demo with sample source which doesn't run in version 4.2.<br>I think there are two problems.<br><br>First, the syntax for match has changed. I tried to update it but I still get the following error.<br>match: date does not refer to a structure definition in: date<br><br>Second,
seconds-&gt;date won't work with seconds as an argument. Calling
value-now gets pass the error but I'm guessing that's not going to make
the demo run correctly?<br><br><br>(require scheme/match)<br>(define clock<br>&nbsp; (match (seconds-&gt;date (value-now seconds))<br>&nbsp;&nbsp;&nbsp; [(struct date (sec min hr day mon yr _ _ _ _))<br>&nbsp;&nbsp;&nbsp;&nbsp; (format " ̃a: ̃a: ̃a&nbsp; ̃a- ̃a-
 ̃a"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; hr (pad min) (pad sec)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; day (pad mon) (pad (modulo yr 100)))]))<br><br>;; pads a number to two digits<br>(define (pad n)<br>&nbsp; (if (&lt; n 10)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (format "0 ̃a" n)<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (number!string n)))<br><br>Thanks,<br><br>Scott Hickey<br>Senior Consultant<br>Object Partners, Inc.</div></body></html>