upd

qirt.c

@@ -1465,6 +1465,12 @@ void qi_decl(qi_state_t *state, char *name, qi_value_t *value) {
   _qi_decl(state, name, value, false);
 }
 
+qi_value_t *qi_decl_expr(qi_state_t *state, char *name, qi_value_t *value) {
+  _qi_decl(state, name, value, false);
+
+  return value;
+}
+
 qi_value_t *_qi_set(qi_state_t *state, qi_bool is_pf, qi_bool is_constant,
                     char *name, qi_value_t *value) {
   qi_ssize_t scopes_count = qi_list_length(state->scopes);

qirt.h

@@ -414,6 +414,7 @@ qi_value_t *qi_find(qi_state_t *state, char *name);
 qi_value_t *qi_get(qi_state_t *state, char *name);
 void qi_decl_const(qi_state_t *state, char *name, qi_value_t *value);
 void qi_decl(qi_state_t *state, char *name, qi_value_t *value);
+qi_value_t *qi_decl_expr(qi_state_t *state, char *name, qi_value_t *value);
 qi_value_t *_qi_set(qi_state_t *state, qi_bool is_pf, qi_bool is_constant,
                     char *name, qi_value_t *value);
 size_t _qi_length(qi_state_t *state, qi_value_t *value);