`if-let` breaks tail call optimization.

[amano-kenji]

`if-let` breaks tail call optimization.

[amano-kenji]

Closing this to create another issue.

[sogaiu]

@amano-kenji May be you can see if 9e0daae fixed things for you?

[amano-kenji]

It fixes the tail call optimization, but the fiber call stack for false branch points to the top of if-let instead of the line where debug/stacktrace is called.

For the true branch, the call stack points to the line where debug/stacktrace is called.

Other than that, it's fine. It's only a minor issue.

[amano-kenji]

This is my test code.

(defn recurse
  [branch]
  (if-let [ha branch]
    (do
      (ev/sleep 1)
      (debug/stacktrace (fiber/current) "print stack for true branch" "")
      (recurse branch))
    (do
      (ev/sleep 1)
      (debug/stacktrace (fiber/current) "print stack for false branch" "")
      (recurse branch))))

(recurse false)

[sogaiu]

Ok, to spell out some details...with the following in recurse.janet:

(defn recurse
  [branch]
  (if-let [ha branch]
    (do
      (ev/sleep 1)
      (debug/stacktrace (fiber/current) "print stack for true branch" "")
      (recurse branch))
    (do
      (ev/sleep 1)
      (debug/stacktrace (fiber/current) "print stack for false branch" "")
      (recurse branch))))

(defn main
  [& args]
  (def arg
    (case (get args 1 "true")
      "true" true
      "false" false
      nil))
  (recurse arg))

For the invocation janet recurse.janet true I get:

alive: print stack for true branch
  in debug/stacktrace [src/core/debug.c] on line 388
  in recurse [recurse.janet] (tailcall) on line 6, column 7
alive: print stack for true branch
  in debug/stacktrace [src/core/debug.c] on line 388
  in recurse [recurse.janet] (tailcall) on line 6, column 7
...

where line 6, column 7 refers to the code:

(debug/stacktrace (fiber/current) "print stack for true branch" "")

which is fine, but, for the invocation janet recurse.janet false I get:

alive: print stack for false branch
  in debug/stacktrace [src/core/debug.c] on line 388
  in recurse [recurse.janet] (tailcall) on line 3, column 3
alive: print stack for false branch
  in debug/stacktrace [src/core/debug.c] on line 388
  in recurse [recurse.janet] (tailcall) on line 3, column 3
...

where line 3, column 3 refers to the code:

(if-let [ha branch]

which I guess would be nicer if this was actually pointing at:

(debug/stacktrace (fiber/current) "print stack for false branch" "")

(line 10, column 7).

[sogaiu]

I guess the location information reporting situation mentioned in this comment is a different issue.