File: scheme-define-syntax

package info (click to toggle)
git 1%3A2.47.3-0%2Bdeb13u1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 59,700 kB
  • sloc: ansic: 298,483; sh: 255,583; perl: 29,458; tcl: 22,173; makefile: 4,235; python: 3,442; javascript: 772; awk: 47; csh: 45; ruby: 43; lisp: 12
file content (8 lines) | stat: -rw-r--r-- 252 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
 
(define-syntax define-test-suite RIGHT
  (syntax-rules ()
    ((_ suite-name (name test) ChangeMe ...)
     (define suite-name
       (let ((tests
              `((name . ,test) ...)))
         (lambda ()
           (run-suite 'suite-name tests)))))))