fun(Config : DocumentConfig) -> struct 2 val config-data = Config.config 3 val block ctx +figure title inner = 4 let () = fig-count <- !fig-count + 1 in 5 let caption = config-data#fig-caption !fig-count titl e in 6 ... のような実装でできる
fun(Config : DocumentConfig) -> struct 2 val config-data = Config.config 3 val block ctx +figure title inner = 4 let () = fig-count <- !fig-count + 1 in 5 let caption = config-data#fig-caption !fig-count titl e in 6 ... のような実装でできる
fun(Config : DocumentConfig) -> struct 2 val config-data = Config.config 3 val block ctx +figure title inner = 4 let () = fig-count <- !fig-count + 1 in 5 let caption = config-data#fig-caption !fig-count titl e in 6 ... のような実装でできる