guile-fediverse

Julien LepillerSun Oct 04 23:33:43+0200 2020

72f76f3

Fix option passing in compaction

activitystreams/ontology.scm

   (let ((proper-json (as-value->proper-json doc))
         (context `(("@context" . ,(list->array 1 (ontology-context ontology))))))
     (if options
         (compact proper-json context)
         (compact proper-json context #:options options))))
         (compact proper-json context #:options options)
         (compact proper-json context))))
 (define* (as-document->graphviz doc #:key (label "n"))
   (cond