gistfile1.txt

# scopes code
fn vertex-shader ()
    let x = (unconst (vec2 1 2))
print
    compile-glsl
        typify vertex-shader
        'dump-disassembly
        
// spirv disassembly
// Module Version 10000
// Generated by (magic number): 53434f50
// Id's are bound by 9
                              MemoryModel Logical GLSL450
                              EntryPoint Vertex 4  "vertex-shader"
                              Name 4  "vertex-shader"
               1:             TypeFloat 32
               2:             TypeVector 1(float) 2
               3:             TypeFunction 2(fvec2)
               6:    1(float) Constant 1065353216
               7:    1(float) Constant 1073741824
               8:    2(fvec2) ConstantComposite 6 7
4(vertex-shader):    2(fvec2) Function None 3
               5:             Label
                              ReturnValue 8
                              FunctionEnd
// GLSL output
#version 450
vec2 main()
{
    return vec2(1.0, 2.0);
}