Changeset 37940 in project


Ignore:
Timestamp:
09/30/19 10:13:13 (3 weeks ago)
Author:
felix winkelmann
Message:

s11n 0.9.10: fix version-dependent keyword printname handling (thanks to Kon Lovett, again)

Location:
release/5/s11n
Files:
1 edited
3 copied

Legend:

Unmodified
Added
Removed
  • release/5/s11n/tags/0.9.10/s11n.scm

    r37937 r37940  
    3030(define header_to_bytes (##core#primitive "header_to_bytes"))
    3131
     32(define keyword-0-prefix
     33  (cond-expand (chicken-5.1 #f) (else #t)))
    3234
    3335(define serialization-mode (make-parameter 'host))
     
    126128                   ((keyword? x)
    127129                    (emitb keyword-tag)
    128                     (walk (substring (##sys#slot x 1) 1)))
     130                    (walk (if keyword-0-prefix
     131                              (substring (##sys#slot x 1) 1)
     132                              (##sys#slot x 1))))
    129133                   ((symbol? x)
    130134                    (emitb
  • release/5/s11n/trunk/s11n.scm

    r37937 r37940  
    3030(define header_to_bytes (##core#primitive "header_to_bytes"))
    3131
     32(define keyword-0-prefix
     33  (cond-expand (chicken-5.1 #f) (else #t)))
    3234
    3335(define serialization-mode (make-parameter 'host))
     
    126128                   ((keyword? x)
    127129                    (emitb keyword-tag)
    128                     (walk (substring (##sys#slot x 1) 1)))
     130                    (walk (if keyword-0-prefix
     131                              (substring (##sys#slot x 1) 1)
     132                              (##sys#slot x 1))))
    129133                   ((symbol? x)
    130134                    (emitb
Note: See TracChangeset for help on using the changeset viewer.