Changeset 40251 in project


Ignore:
Timestamp:
07/02/21 20:57:14 (4 weeks ago)
Author:
Mario Domenech Goulart
Message:

define-record and srfi 17: make code slightly shorter by using symbol-append

File:
1 edited

Legend:

Unmodified
Added
Removed
  • wiki/define-record and srfi 17

    r40249 r40251  
    1717         (,%define-record ,type ,@fields)
    1818         ,@(map (lambda (f)
    19                   (let* ((getter (string->symbol
    20                                   (string-append
    21                                    (symbol->string
    22                                     (strip-syntax type))
    23                                    "-"
    24                                    (symbol->string
    25                                     (strip-syntax f)))))
    26                          (setter (string->symbol
    27                                   (string-append
    28                                    (symbol->string
    29                                     (strip-syntax getter))
    30                                    "-set!"))))
     19                  (let* ((getter (symbol-append
     20                                  (strip-syntax type)
     21                                  '-
     22                                  (strip-syntax f)))
     23                         (setter (symbol-append
     24                                  (strip-syntax getter)
     25                                  '-set!)))
    3126                    (list %define
    3227                          getter
Note: See TracChangeset for help on using the changeset viewer.