string->yaml: broke its contract

[baoti]

> (string->yaml "picture: !!binary |
 R0lGODlhDAAMAIQAAP//9/X
 17unp5WZmZgAAAOfn515eXv
 Pz7Y6OjuDg4J+fn5OTk6enp
 56enmleECcgggoBADs=")
string->yaml: broke its contract
 promised: yaml?
 produced: '#hash(("picture" . #"GIF89a\f\0\f\0\204\0\0\377\377\367\365\365\356\351\351\345fff\0\0\0\347\347\347^^^\363\363\355\216\216\216\340\340\340\237\237\237\223\223\223\247\247\247\236\236\236i^\20' \202\n\1\0;"))
 in: the range of
      (-> string? yaml?)
 contract from: 
      <planet>/esilkensen/yaml.plt/2/1/main.rkt
 blaming: 
      <planet>/esilkensen/yaml.plt/2/1/main.rkt
 at: <planet>/esilkensen/yaml.plt/2/1/main.rkt:15.3
  context...:
   /usr/share/racket/collects/racket/contract/private/blame.rkt:89:0: raise-blame-error
   /usr/share/racket/collects/racket/private/misc.rkt:87:7
> 

[esilkensen]

Fix pushed to github.

> (string->yaml "picture: !!binary |\n R0lGODlhDAAMAIQAAP//9/X\n 17unp5WZmZgAAAOfn515eXv\n Pz7Y6OjuDg4J+fn5OTk6enp\n 56enmleECcgggoBADs=")
'#hash(("picture"
        .
        #"GIF89a\f\0\f\0\204\0\0\377\377\367\365\365\356\351\351\345fff\0\0\0\347\347\347^^^\363\363\355\216\216\216\340\340\340\237\237\237\223\223\223\247\247\247\236\236\236i^\20' \202\n\1\0;"))