Changeset 39712 in project


Ignore:
Timestamp:
03/14/21 22:26:01 (2 months ago)
Author:
Kon Lovett
Message:

canon naming style

Location:
release/5/srfi-45/trunk
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • release/5/srfi-45/trunk/README.svnwiki

    r39686 r39712  
    113113== Requirements
    114114
    115 None
     115[[record-variants]]
     116[[check-errors]]
    116117
    117118
     
    124125== Version history
    125126
     127; 4.0.4 : .
    126128; 4.0.3 : Fixed record printer.
    127129; 4.0.2 : Fixed types.
  • release/5/srfi-45/trunk/srfi-45.scm

    r39692 r39712  
    114114  (%promise-box-value-set! promise-box promise) )
    115115
    116 (define (print-recursive-promise obj out)
     116(define (recursive-promise-print obj out)
    117117  (display "#<" out)
    118118  (let ((content (%recursive-promise-content obj)))
     
    159159;Promise Record Printer
    160160;
    161 (set! (record-printer recursive-promise) print-recursive-promise)
     161(set! (record-printer recursive-promise) recursive-promise-print)
    162162
    163163;; Force
Note: See TracChangeset for help on using the changeset viewer.