mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Inline SRFI-9 constructors too.

Browse source 
* module/srfi/srfi-9.scm (define-record-type)[constructor]: Use
  `define-inlinable' instead of `define'.

* test-suite/lib.scm (exception:syntax-pattern-unmatched): New variable.

* test-suite/tests/srfi-9.test ("constructor")["foo 0 args (inline)",
  "foo 2 args (inline)"]: New tests.
  ["foo 0 args", "foo 2 args"]: Adjust to constructor inlining.

* testsuite/t-records.scm: Remove wrong-arg-count case.
This commit is contained in:
Ludovic Courtès 2010-01-30 22:54:20 +01:00
parent 61cbfff509
commit 30a700c8c1
4 changed files with 21 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
test-suite/lib.scm
View file

@ -22,6 +22,7 @@
:export (
;; Exceptions which are commonly being tested for.
exception:syntax-pattern-unmatched
exception:bad-variable
exception:missing-expression
exception:out-of-range exception:unbound-var
@ -248,6 +249,8 @@ with-locale with-locale*
;;;;
;;; Define some exceptions which are commonly being tested for.
(define exception:syntax-pattern-unmatched
(cons 'syntax-error "source expression failed to match any pattern"))
(define exception:bad-variable
(cons 'syntax-error "Bad variable"))
(define exception:missing-expression