srfi-9.test: avoid symbols of the form ':bar' for more robust checking.
authorMark H Weaver <mhw@netris.org>
Sun, 11 Nov 2012 00:14:08 +0000 (19:14 -0500)
committerMark H Weaver <mhw@netris.org>
Sun, 11 Nov 2012 00:14:08 +0000 (19:14 -0500)
* test-suite/tests/srfi-9.test ("incompatible field paths"): Rename
  ':bar' to 'bar' to avoid the possibility of the symbol name being
  printed with #{...}# notation.

test-suite/tests/srfi-9.test

index 6179b90..e951fc6 100644 (file)
         '(syntax-error set-fields
                        "\
 field paths (bar-i bar-j) and (bar-i foo-x) require one object \
-to belong to two different record types (:bar and foo)"
+to belong to two different record types (bar and foo)"
                        (set-fields s
                          ((bar-i foo-x) 1)
                          ((bar-i bar-j) 2)
@@ -630,7 +630,7 @@ to belong to two different record types (:bar and foo)"
                         (y foo-y set-foo-y)
                         (z foo-z set-foo-z))
 
-                      (define-immutable-record-type :bar
+                      (define-immutable-record-type bar
                         (make-bar i j)
                         bar?
                         (i bar-i)