Changeset 3918 in project


Ignore:
Timestamp:
04/23/07 20:57:07 (13 years ago)
Author:
Kon Lovett
Message:

Read/print syntax. Update for test.

Location:
metaphone
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • metaphone/metaphone-test.scm

    r3606 r3918  
    1111(define-for-syntax test::selecting #f)
    1212(define-for-syntax test::limiting #f)
     13
     14#| TestBase
     15
     16  (test
     17    (purpose "Checkout metaphone build.")
     18    (reader-extension metaphone) )
     19|#
    1320
    1421;;;
     
    4047                      def
    4148                      (cons 1 val)) )
    42                   (cons 2 val)))                                 
     49                  (cons 2 val)))
    4350              def)
    4451            (cons 2 val)))
  • metaphone/metaphone.scm

    r3195 r3918  
    5555  (fixnum? (%metaphone-key-primary mk)) )
    5656
    57 (define-record-printer (metaphone-key mk port)
    58   (fprintf port "#<metaphone-key ~S ~S>"
    59     (metaphone-key-primary mk)
    60     (metaphone-key-alternate mk)) )
    61 
    6257;;;
    6358
     
    153148    (%make-metaphone-key prm alt
    154149      (if keyint? %metaphone-key-integer-compare %metaphone-key-string-compare)) ) )
     150
     151(define-record-printer (metaphone-key mk port)
     152  (fprintf port "#,(metaphone-key ~S ~S)"
     153    (metaphone-key-primary mk)
     154    (metaphone-key-alternate mk)) )
     155
     156(define-reader-ctor 'metaphone-key *make-metaphone-key)
    155157
    156158(define (metaphone-key? obj)
Note: See TracChangeset for help on using the changeset viewer.