From 0f85d1d83c84a557c332f3978f90ba00b6758370 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 6 Dec 2018 15:21:33 -0800 Subject: [PATCH] suppress error --- xenomorph/xenomorph/base.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/xenomorph/xenomorph/base.rkt b/xenomorph/xenomorph/base.rkt index e160e541..cbb1a9cf 100644 --- a/xenomorph/xenomorph/base.rkt +++ b/xenomorph/xenomorph/base.rkt @@ -1,4 +1,4 @@ -#lang racket/base +#lang debug racket/base (require racket/class sugar/unstable/class racket/generic @@ -77,8 +77,9 @@ [_list null]) (define/pubment (decode port [parent #f] . args) - (when parent (unless (indexable? parent) - (raise-argument-error (symbol-append (get-class-name) ':decode) "indexable" parent))) + ;; todo: is `indexable?` really a necessary condition? doesn't seem to break anything withou it + #;(when parent (unless (indexable? parent) + #;(raise-argument-error (symbol-append (get-class-name) ':decode) "indexable" parent))) (define ip (cond [(bytes? port) (open-input-bytes port)] [(input-port? port) port] @@ -88,7 +89,7 @@ (define/pubment (encode port val-in [parent #f] . args) #;(report* port val-in parent) (define val (pre-encode val-in port)) - (when parent (unless (indexable? parent) + #;(when parent (unless (indexable? parent) (raise-argument-error (symbol-append (get-class-name) ':encode) "indexable" parent))) (define op (cond [(output-port? port) port]