<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->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> (match (seconds->date (value-now seconds))<br> [(struct date (sec min hr day mon yr _ _ _ _))<br> (format " ̃a: ̃a: ̃a ̃a- ̃a-
̃a"<br> hr (pad min) (pad sec)<br> day (pad mon) (pad (modulo yr 100)))]))<br><br>;; pads a number to two digits<br>(define (pad n)<br> (if (< n 10)<br> (format "0 ̃a" n)<br> (number!string n)))<br><br>Thanks,<br><br>Scott Hickey<br>Senior Consultant<br>Object Partners, Inc.</div></body></html>