;; 4

      (when (json-has-key? context "@context")

        (set! context (assoc-ref context "@context")))

      (let* ((base-iri (or (jsonld-options-base options)

                           (and (jsonld-options-compact-to-relative? options)

                                (string? input)

                           #:ordered? (jsonld-options-ordered? options)

                           #:processing-mode

                           (jsonld-options-processing-mode options))))

        (if (equal? compacted-output #())

            (set! compacted-output '())

            (when (json-array? compacted-output)

      (expand-with-base input #:options options))

    ;; 2 and 3

    (lambda (expanded-input context-base)

      (let* ((generate-blank-node (get-generate-blank-node-identifier))

             (generate-node-map (get-node-map-generation generate-blank-node))

             (node-map (generate-node-map expanded-input '()))

             (node-map (assoc-ref node-map "node-map")))

        (deserialize-jsonld

          generate-blank-node node-map (make-rdf-dataset '() '())

          #:produce-generalized-rdf?

                         (not (json-key-expanded-to? active-context nested-value "@value")))

              (throw 'invalid-@nest-value))

            ;; 14.2.2

              (set! result (assoc-ref exec-result "result"))

              (set! nests (assoc-ref exec-result "nests"))

              (let ((exec-result