phino-0.0.157: test-resources/evaluate-packs/parks-an-evaluate-line-over-a-term-that-is-no-formation.yaml
# SPDX-FileCopyrightText: Copyright (c) 2025 Objectionary.com
# SPDX-License-Identifier: MIT
---
# yamllint disable rule:line-length
# The 'rewrite' line takes 'Ξ¦.k' out of the formation 'a' morphs to, and that
# dispatch is no formation and so nothing πΌ can be asked of: the 'evaluate'
# line gets stuck on the fork itself, and '--partial' parks the site the fork
# stands at (#1874). A branch parked under '--partial' never comes this far,
# since its firing gets stuck where its morph does (#2014).
symbolic: |
- Ξ»: L_fork
morph:
π1: $.a
rewrite:
π2:
of: π1
rules:
- name: unwrap
pattern: β¦ Ο β¦ π1 β§
result: π1
evaluate:
π3: π2
π: π3
location: 'Q.y'
partial: true
input: 'β¦ k β¦ β¦β§, y β¦ β¦ a β¦ β¦ Ο β¦ Ξ¦.k β§, Ξ» β€ L_fork β§.Ο β§'
result: 'β¦ a β¦ β¦ Ο β¦ Ξ¦.k β§, Ξ» β€ L_fork β§.Ο'
protocol: |
π(Ξ¦.y):
πΌ(L_fork):
π1Β·1 := Ξ¦.k:Ο # π(ΞΎ.a)
π2Β·1 := Ξ¦.k # rewrite(π1)
stuck L_fork