diff options
| author | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-04-14 15:38:18 +0000 |
|---|---|---|
| committer | bstarynk <bstarynk@138bc75d-0d04-0410-961f-82ee72b054a4> | 2014-04-14 15:38:18 +0000 |
| commit | bafe4553f1bbed08d629d6379a63329b9a3b4896 (patch) | |
| tree | 601c77b223958250c3a9a655edaebabed7265d6a /gcc/melt/warmelt-first.melt | |
| parent | f01696ba854718378e07cbe14718ce86f489bcae (diff) | |
| download | gcc-bafe4553f1bbed08d629d6379a63329b9a3b4896.tar.gz | |
2014-04-14 Basile Starynkevitch <basile@starynkevitch.net>
* melt-predef.list (JSON_FALSE): New predefined.
* melt/warmelt-first.melt: initialize it using :json_false.
* melt/warmelt-base.melt (output_as_json): New selector.
(output_json): New function.
(outjson_jsonobj_method): New method for output_as_json on
discr_jsonobject.
(outjson_multiple_method): New method for output_as_json on
discr_multiple.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/branches/melt-branch@209382 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/melt/warmelt-first.melt')
| -rw-r--r-- | gcc/melt/warmelt-first.melt | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/gcc/melt/warmelt-first.melt b/gcc/melt/warmelt-first.melt index 896bab4eccd..44e1a9a7243 100644 --- a/gcc/melt/warmelt-first.melt +++ b/gcc/melt/warmelt-first.melt @@ -4265,11 +4265,15 @@ $MELT_MAKE_FRESH_ENVIRONMENT_REFERENCE primitive. For gurus and MELT itself.}# :doc #{$FOREACH_IN_LIST is obsolete for $FOREACH_PAIR_COMPONENT_IN_LIST}#) -;; we predefine :true as the TRUE. Currently no handcoded C function +;; we predefine :true and as the TRUE and the :json_false symbol. Currently no handcoded C function ;; uses it, but perhaps that could change!! -(let ( ( truekeyword :true) ) - (code_chunk storetruekeyword #{MELT_STORE_PREDEF(TRUE, (melt_ptr_t) $TRUEKEYWORD)}#)) +(let ( (true_keyword :true) + (json_false_keyword :json_false) + ) + (code_chunk storetruekeyword #{MELT_STORE_PREDEF(TRUE, (melt_ptr_t) $TRUE_KEYWORD)}#) + (code_chunk storejsonfalse #{MELT_STORE_PREDEF(JSON_FALSE, (melt_ptr_t) $JSON_FALSE_KEYWORD)}#) + ) ;; support for named_symbol hook |