yaml-write raises an error with valid YAML

The following should be written in the port but raises an error

(import (rnrs)
        (text yaml))
(define yaml '#(("foo" . #f) ("bar" . #f)))
(yaml-write (list yaml))

This is the error

-Unhandled exception
  Condition components:
  1. &assertion
  2. &who car
  3. &message "pair" required, but got #f
  4. &irritants ()
  5. &stack-trace

stack trace:
  [1] emit
    src: (car value)
    "/usr/local/share/sagittarius/0.9.4/sitelib/text/yaml/writer.scm":151
  [2] emit
    src: (string-append (->key kref? klabel key (->vlabel v
    "/usr/local/share/sagittarius/0.9.4/sitelib/text/yaml/writer.scm":149
  [3] recur
  [4] recur
  [5] dynamic-wind
  [6] emit-yaml
  [7] yaml-write
  [8] eval
  [9] main-loop
  [10] dynamic-wind
  [11] script

Comments (1)