Changeset 38033 in project

Timestamp:

12/23/19 06:41:51 (10 months ago)

Author:

Ivan Raikov

Message:

patch port to c5

Location:

release/5

Files:

• patch (added)
• patch/tags (added)
• patch/trunk (added)
• patch/trunk/patch.egg (added)
• patch/trunk/patch.scm (added)
• patch/trunk/tests (added)
• records/trunk/records.scm (modified) (1 diff)
• zmq/trunk/tests/run.scm (modified) (1 diff)

release/5/records/trunk/records.scm

@@ -28 +28 @@
           make-record-type) 
 
-(import scheme (chicken base) (chicken fixnum) srfi-1)
+(import scheme chicken)
+(use srfi-1)
 
 (define (rtd? x) (##sys#structure? x 'rtd))

release/5/zmq/trunk/tests/run.scm

@@ -111 +111 @@
        (test "yes" (receive-message* b))))
 
+    (thread-start! 
+     (lambda ()
+       (print "thread 1")))
+
+    (thread-start! 
+     (lambda ()
+       (print "thread 2")))
+
+    (thread-start! 
+     (lambda ()
+       (print "thread 3")))
+
     ;; yes that is kind of silly but I have no better idea to test it
     ;; -- patches welcome!