quipu mercurial repository
Revisão | 7df1ca0a1b30ff6334932d0c6f9dee6b7ded875d (tree) |
---|---|
Hora | 2018-11-16 13:22:04 |
Autor | Agustina Arzille <avarzille@rise...> |
Commiter | Agustina Arzille |
Print unbound's
@@ -40,8 +40,11 @@ | ||
40 | 40 | DISPATCH (GENERATOR, G); |
41 | 41 | DISPATCH (PKG, P); |
42 | 42 | default: |
43 | - // XXX: Other objects. | |
44 | - invalid_arg (interp, "write"); | |
43 | + if (obj == UNBOUND) | |
44 | + ret = strm->write (interp, "#<unbound>", 10); | |
45 | + else | |
46 | + // XXX: Other objects. | |
47 | + invalid_arg (interp, "write"); | |
45 | 48 | #undef DISPATCH |
46 | 49 | } |
47 | 50 |