Changeset 25592 in project


Ignore:
Timestamp:
11/28/11 13:25:40 (9 years ago)
Author:
Ivan Raikov
Message:

json-abnf release 5.1

Location:
release/4/json-abnf
Files:
3 edited
4 copied

Legend:

Unmodified
Added
Removed
  • release/4/json-abnf/tags/5.1/json-abnf.scm

    r25590 r25592  
    8585
    8686(define (value?  x)    (or (string? x) (number? x) (boolean? x)
    87                            (vector? x) (list? x) (pair? x)))
     87                           (vector? x) (null? x) (pair? x) (symbol? x)))
    8888
    8989(define consumed-values (abnf:consumed-objects value?))
     
    142142(define false
    143143  (abnf:bind
    144    (abnf:consumed-chars->list (lambda x (list #f)))
     144   (lambda x (list #f))
    145145   (abnf:lit "false")))
    146146
    147147(define null
    148148  (abnf:bind
    149    (abnf:consumed-chars->list (lambda x (list 'null)))
     149   (lambda x (list 'null))
    150150   (abnf:lit "null")))
    151151
    152152(define true
    153153  (abnf:bind
    154    (abnf:consumed-chars->list (lambda x (list #t)))
     154   (lambda x (list #t))
    155155   (abnf:lit "true")))
    156156
  • release/4/json-abnf/tags/5.1/json-abnf.setup

    r25590 r25592  
    1919
    2020  ;; Assoc list with properties for your extension:
    21   '((version 5.0)
     21  '((version 5.1)
    2222    ))
    2323
  • release/4/json-abnf/tags/5.1/tests/run.scm

    r25590 r25592  
    7070    ,(list->vector (list (list->vector (list '())) "" '()))
    7171    ,(list->vector (list (list->string (list #\newline)) (list->string (list #\@)) "test!"))
    72     ,(list->vector (list '(#f) '(#t) '(null)))
    73     (("str" . "a") ("true" . (#t)) ("false" . (#f)))
     72    ,(list->vector (list #f #t 'null))
     73    (("str" . "a") ("true" . #t) ("false" . #f))
    7474    (
    7575      ("Image" .
  • release/4/json-abnf/trunk/json-abnf.scm

    r25590 r25592  
    8585
    8686(define (value?  x)    (or (string? x) (number? x) (boolean? x)
    87                            (vector? x) (list? x) (pair? x)))
     87                           (vector? x) (null? x) (pair? x) (symbol? x)))
    8888
    8989(define consumed-values (abnf:consumed-objects value?))
     
    142142(define false
    143143  (abnf:bind
    144    (abnf:consumed-chars->list (lambda x (list #f)))
     144   (lambda x (list #f))
    145145   (abnf:lit "false")))
    146146
    147147(define null
    148148  (abnf:bind
    149    (abnf:consumed-chars->list (lambda x (list 'null)))
     149   (lambda x (list 'null))
    150150   (abnf:lit "null")))
    151151
    152152(define true
    153153  (abnf:bind
    154    (abnf:consumed-chars->list (lambda x (list #t)))
     154   (lambda x (list #t))
    155155   (abnf:lit "true")))
    156156
  • release/4/json-abnf/trunk/json-abnf.setup

    r25590 r25592  
    1919
    2020  ;; Assoc list with properties for your extension:
    21   '((version 5.0)
     21  '((version 5.1)
    2222    ))
    2323
  • release/4/json-abnf/trunk/tests/run.scm

    r25590 r25592  
    7070    ,(list->vector (list (list->vector (list '())) "" '()))
    7171    ,(list->vector (list (list->string (list #\newline)) (list->string (list #\@)) "test!"))
    72     ,(list->vector (list '(#f) '(#t) '(null)))
    73     (("str" . "a") ("true" . (#t)) ("false" . (#f)))
     72    ,(list->vector (list #f #t 'null))
     73    (("str" . "a") ("true" . #t) ("false" . #f))
    7474    (
    7575      ("Image" .
Note: See TracChangeset for help on using the changeset viewer.