Changeset 37651 in project


Ignore:
Timestamp:
06/06/19 10:02:55 (11 days ago)
Author:
felix
Message:

record-variants 1.1: use tag-var instead of unqualified record type name

Location:
release/5/record-variants
Files:
2 edited
1 copied

Legend:

Unmodified
Added
Removed

  • release/5/record-variants/tags/1.1/record-variants.scm

    r35591 r37651  
    101101                  ,(string->symbol (string-append "make-" prefix))
    102102                  (,%lambda ,slots
    103                             (##sys#make-structure ',original-name ,@slots)))
     103                            (##sys#make-structure ,original-name ,@slots)))
    104104                `(,%begin))
    105105           (,%define
    106106            ,(string->symbol (string-append prefix "?"))
    107             (,%lambda (x) (##sys#structure? x ',original-name)))
     107            (,%lambda (x) (##sys#structure? x ,original-name)))
    108108           (,%define
    109109            ,(string->symbol (string-append "check-" prefix))
    110110            (,%lambda (x)
    111                       (##core#check (##sys#check-structure x ',original-name))
     111                      (##core#check (##sys#check-structure x ,original-name))
    112112                      x))
    113113           ,@(let loop ((slots slots) (i 1))
    … …  
    127127                                        `(,%begin)
    128128                                        `(##core#check (##sys#check-structure
    129                                                         x ',original-name)))
     129                                                        x ,original-name)))
    130130                                   ,(if unsafe?
    131131                                        `(##sys#setslot x ,i val)
    … …  
    139139                                               `(,%begin)
    140140                                               `(##core#check (##sys#check-structure
    141                                                                x ',original-name)))
     141                                                               x ,original-name)))
    142142                                          ,(if unsafe?
    143143                                               `(##sys#slot x ,i)
    … …  
    148148                                              `(,%begin)
    149149                                              `(##core#check (##sys#check-structure
    150                                                               x ',original-name)))
     150                                                              x ,original-name)))
    151151                                         ,(if unsafe?
    152152                                              `(##sys#slot x ,i)
    … …  
    193193                `(,%define ,conser
    194194                           (##sys#make-structure
    195                             ',t
     195                            ,t
    196196                            ,@(map (lambda (sname)
    197197                                     (if (memq sname vars)
    … …  
    200200                                   slotnames)))
    201201                `(,%begin))
    202            (,%define (,pred ,x) (##sys#structure? ,x ',t))
     202           (,%define (,pred ,x) (##sys#structure? ,x ,t))
    203203           ,(if checker
    204204                `(,%define (,checker ,x)
    205                            (##core#check (##sys#check-structure ,x ',t)))
     205                           (##core#check (##sys#check-structure ,x ,t)))
    206206                `(,%begin))
    207207           ,@(let loop ([slots slots] [i 1])
    … …  
    215215                                                `(,%begin)
    216216                                                `(##core#check
    217                                                   (##sys#check-structure ,x ',t)))
     217                                                  (##sys#check-structure ,x ,t)))
    218218                                           ,(if unsafe?
    219219                                                `(##sys#slot ,x ,i)
    … …  
    224224                                              `(,%begin)
    225225                                              `(##core#check
    226                                                 (##sys#check-structure ,x ',t)))
     226                                                (##sys#check-structure ,x ,t)))
    227227                                         ,(if unsafe?
    228228                                              `(##sys#setslot ,x ,i ,y)

  • release/5/record-variants/trunk/record-variants.scm

    r35591 r37651  
    101101                  ,(string->symbol (string-append "make-" prefix))
    102102                  (,%lambda ,slots
    103                             (##sys#make-structure ',original-name ,@slots)))
     103                            (##sys#make-structure ,original-name ,@slots)))
    104104                `(,%begin))
    105105           (,%define
    106106            ,(string->symbol (string-append prefix "?"))
    107             (,%lambda (x) (##sys#structure? x ',original-name)))
     107            (,%lambda (x) (##sys#structure? x ,original-name)))
    108108           (,%define
    109109            ,(string->symbol (string-append "check-" prefix))
    110110            (,%lambda (x)
    111                       (##core#check (##sys#check-structure x ',original-name))
     111                      (##core#check (##sys#check-structure x ,original-name))
    112112                      x))
    113113           ,@(let loop ((slots slots) (i 1))
    … …  
    127127                                        `(,%begin)
    128128                                        `(##core#check (##sys#check-structure
    129                                                         x ',original-name)))
     129                                                        x ,original-name)))
    130130                                   ,(if unsafe?
    131131                                        `(##sys#setslot x ,i val)
    … …  
    139139                                               `(,%begin)
    140140                                               `(##core#check (##sys#check-structure
    141                                                                x ',original-name)))
     141                                                               x ,original-name)))
    142142                                          ,(if unsafe?
    143143                                               `(##sys#slot x ,i)
    … …  
    148148                                              `(,%begin)
    149149                                              `(##core#check (##sys#check-structure
    150                                                               x ',original-name)))
     150                                                              x ,original-name)))
    151151                                         ,(if unsafe?
    152152                                              `(##sys#slot x ,i)
    … …  
    193193                `(,%define ,conser
    194194                           (##sys#make-structure
    195                             ',t
     195                            ,t
    196196                            ,@(map (lambda (sname)
    197197                                     (if (memq sname vars)
    … …  
    200200                                   slotnames)))
    201201                `(,%begin))
    202            (,%define (,pred ,x) (##sys#structure? ,x ',t))
     202           (,%define (,pred ,x) (##sys#structure? ,x ,t))
    203203           ,(if checker
    204204                `(,%define (,checker ,x)
    205                            (##core#check (##sys#check-structure ,x ',t)))
     205                           (##core#check (##sys#check-structure ,x ,t)))
    206206                `(,%begin))
    207207           ,@(let loop ([slots slots] [i 1])
    … …  
    215215                                                `(,%begin)
    216216                                                `(##core#check
    217                                                   (##sys#check-structure ,x ',t)))
     217                                                  (##sys#check-structure ,x ,t)))
    218218                                           ,(if unsafe?
    219219                                                `(##sys#slot ,x ,i)
    … …  
    224224                                              `(,%begin)
    225225                                              `(##core#check
    226                                                 (##sys#check-structure ,x ',t)))
     226                                                (##sys#check-structure ,x ,t)))
    227227                                         ,(if unsafe?
    228228                                              `(##sys#setslot ,x ,i ,y)
Note: See TracChangeset for help on using the changeset viewer.