Browse Source

Remove trailing space in fn representation

Vasilij Schneidermann 7 years ago
parent
commit
72aa87e221
1 changed files with 2 additions and 2 deletions
  1. 2 2
      sledge/writer.c

+ 2 - 2
sledge/writer.c

@@ -87,10 +87,10 @@ char* write_(Cell* cell, char* buffer, int in_list, int bufsize) {
       if (car(car(args))->tag == TAG_CONS) {
         Cell* arg_cell = car(car(args));
         // typed arg
-        ai += snprintf(tmp_args+ai, TMP_BUF_SIZE-ai, "(%s %s) ", (char*)(car(arg_cell)->ar.addr), (char*)(car(cdr(arg_cell))->ar.addr));
+        ai += snprintf(tmp_args+ai, TMP_BUF_SIZE-ai, ai ? " (%s %s)" : "(%s %s)", (char*)(car(arg_cell)->ar.addr), (char*)(car(cdr(arg_cell))->ar.addr));
       } else {
         // untyped arg
-        ai += snprintf(tmp_args+ai, TMP_BUF_SIZE-ai, "%s ", (char*)(car(car(args)))->ar.addr);
+        ai += snprintf(tmp_args+ai, TMP_BUF_SIZE-ai, ai ? " %s" : "%s" , (char*)(car(car(args)))->ar.addr);
       }
       args = cdr(args);
     }