- (throw
- (object
- "type" "block"
- "id" ,(binding-value b)
- "values" ,(convert value multiple-value-p)
- "message" ,(concat "Return from unknown block '" (symbol-name name) "'."))))))
+ (throw (new (call |BlockNLX|
+ ,(binding-value b)
+ ,(convert value multiple-value-p)
+ ,(symbol-name name)))))))