Tweak pp-iform

- Show dissolved flag of $lambda node
- Make it clear that what follows $lambda entry is a list of local vars

Author: shirok

src/compile.scm

@@ -851,10 +851,11 @@
         (nl (+ ind 4))
         (rec (+ ind 4) ($receive-expr iform)) (nl (+ ind 2))
         (rec (+ ind 2) ($receive-body iform)) (display ")")]
-       [($LAMBDA) (format #t "($lambda[~a.~a~a~a] ~a" ($lambda-name iform)
+       [($LAMBDA) (format #t "($lambda[~a ~a~a~a~a] lv:~a" ($lambda-name iform)
                           (length ($lambda-calls iform))
                           (if (null? ($lambda-free-lvars iform)) "" "c")
                           (if ($lambda-inlinable? iform) " inlinable" "")
+                          (if ($lambda-dissolved? iform) " dissolved" "")
                           (map lvar->string ($lambda-lvars iform)))
         (nl (+ ind 2))
         (rec (+ ind 2) ($lambda-body iform)) (display ")")]